home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
bbs
/
mxgui203.zip
/
_SCRIPT.TXT
< prev
next >
Wrap
Text File
|
1997-08-12
|
3KB
|
60 lines
{
───────────────────────────────────────────────────────────────────────────────
▀▀▀ ▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀
▀▀▀▀ ▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀
▀▀ ▀▀▀ ▀▀ ▀▀▀▀▀▀▀ ▀▀▀ ╔══ ╦═╗ ╔═╗ ╦═╗ ╦ ╦ ╦ ╔═╗ ╔═╗
▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ║ ╦ ╠╦╝ ╠═╣ ╠═╝ ╠═╣ ║ ║ ╚═╗
▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ╚═╝ ╩╚═ ╩ ╩ ╩ ╩ ╩ ╩ ╚═╝ ╚═╝
───────────────────────────────────────────────────────────────────────────────
The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft).
Color Averaging procedures are courtesy of Sean Price (Rude Dog Software).
───────────────────────────────────────────────────────────────────────────────
INTERFACE
TYPE SB_Information = RECORD {Be sure you set these before using the SB!!}
IRQ : STRING[2]; {Sound card port IRQ. }
DMA : STRING[2]; {Sound card DMA channel. }
Address : STRING[3]; {Sound card port address with no "$". }
END;
VAR
SB : SB_Information; {SoundBlaster settings record variable. }
HomeDir : STRING[80]; {Current program home directory. }
ResPath : STRING[80]; {Resource Path. }
SesPath : STRING[80]; {Session Path. }
DownPath1 : STRING[80]; {System download path. }
DownPath2 : STRING[80]; {System download path backup. }
ScrStr : STRING; {String that holds the current script command.}
ScreenDone : BOOLEAN; {Becomes TRUE upon the End_Screen() command. }
UseSB : BOOLEAN; {Use SoundBlaster? [Y/N] }
MouseOn : BOOLEAN; {Should the mouse cursor be on? [Y/N] }
TextFile : TEXT; {Text file created by Start_Text_File(). }
PROCEDURE PlayButtonSound(FName : STRING);
{^ Plays a button sound file attachment. }
PROCEDURE ShutDownSvga;
{^ Shuts down the SVGA interface and returns to 80x25x16 text mode. }
PROCEDURE RestartSvga;
{^ Restarts the SVGA interface after a call to ShutDownSvga. }
PROCEDURE Execute(FName : STRING);
{^ Executes an external program. }
PROCEDURE DropToDOS;
{^ Temporarily shells to the command prompt. }
PROCEDURE WriteSystemInfo;
{^ This procedure writes the SYSTEM.NFO file. }
PROCEDURE IndexResources;
{^ This procedure is used to create a local resource list. }
PROCEDURE ShowRemoteScreen(FName : STRING);
{^ Called by the Show_Remote_Screen() MAX command. }
PROCEDURE CheckControlLine(Command : STRING);
{^ This procedure is used to check a text string to see if it matches one
of the predefined MAXscript commands. }
PROCEDURE CheckScriptLine(Command : STRING);
{^ This procedure is used to check a text string to see if it matches one
of the predefined MAXcontrol commands. }
PROCEDURE CheckColorCommand(Command : STRING);
{^ This procedure is used to check a text string to see if it matches one
of the predefined MAXcolor commands. }
{────────────────────────────────────────────────────────────────────────────}